home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 11 / FM Towns Free Software Collection 11.iso / t_os / game / cdr_100 / cdr_map.bas < prev    next >
BASIC Source File  |  1995-05-21  |  6KB  |  153 lines
  1. 10 '★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
  2. 20 '
  3. 30 '     <<  ＣＡＲ　ＤＯＧ　Ｒ  >>  - コースマップ作成 -
  4. 40 '                                                     
  5. 50 '----------------------------------------------------------------
  6. 60 '             Game design       Hiroto Kimura
  7. 70 '             Programed by      ＫＡＭＡ
  8. 80 '★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
  9. 90 '
  10. 100 *初期設定:'------------------------------------------------------
  11. 110 DEFINT A-Z:SCREEN@ 1:CLS
  12. 120 WINDOW(0,0)-(511,255):VIEW(0,0)-(511,255)
  13. 130 DIM ROAD(4095),FOREST(4095),X(99),Y(99),MAPDATA(81919)
  14. 140 *パターン作成:'--------------------------------------------------
  15. 150 FOR I=0 TO 63
  16. 160   FOR J=0 TO 63
  17. 170     A=INT(RND*16+56)
  18. 180     PSET(I,J),[A,A,A]
  19. 190   NEXT J
  20. 200 NEXT I
  21. 210 GET@A(0,0)-(63,63),ROAD%
  22. 220 CLS
  23. 230 FOR I=0 TO 63
  24. 240   FOR J=0 TO 63
  25. 250     A=INT(RND*128+64)
  26. 260     PSET(I,J),[A,64,32]
  27. 270   NEXT J
  28. 280 NEXT I
  29. 290 GET@A(0,0)-(63,63),FOREST%
  30. 300 *コース作成:'----------------------------------------------------
  31. 310 '---１面 ---
  32. 320 CLS:GOSUB *森で塗りつぶし
  33. 330 PSZ=32:A=160:B=160:C=200:RESTORE *１面:GOSUB *路肩描く
  34. 340 PSZ=26:A=100:B=100:C=120:RESTORE *１面:GOSUB *路肩描く
  35. 350 PSZ=20:RESTORE *１面:GOSUB *道路描く
  36. 360 GET@A(0,0)-(319,255),MAPDATA
  37. 370 GOSUB *道路で塗りつぶし
  38. 380 PUT@A(0,0)-(319,255),MAPDATA,MATTE,,,0
  39. 390 X1=175:Y1=211:X2=175:Y2=236:GOSUB *スタートライン描く
  40. 400 SAVE@ "cdr_map1.tif",(0,0)-(319,255),,1
  41. 410 '--- ２面 ---
  42. 420 CLS:GOSUB *森で塗りつぶし
  43. 430 PSZ=32:A=160:B=160:C=200:RESTORE *２面:GOSUB *路肩描く
  44. 440 PSZ=26:A=100:B=100:C=120:RESTORE *２面:GOSUB *路肩描く
  45. 450 PSZ=20:RESTORE *２面:GOSUB *道路描く
  46. 460 GET@A(0,0)-(319,255),MAPDATA
  47. 470 GOSUB *道路で塗りつぶし
  48. 480 PUT@A(0,0)-(319,255),MAPDATA,MATTE,,,0
  49. 490 X1=175:Y1=211:X2=175:Y2=236:GOSUB *スタートライン描く
  50. 500 SAVE@ "cdr_map2.tif",(0,0)-(319,255),,1
  51. 510 '--- ３面 ---
  52. 520 CLS:GOSUB *森で塗りつぶし
  53. 530 PSZ=32:A=160:B=160:C=200:RESTORE *３面:GOSUB *路肩描く
  54. 540 PSZ=26:A=100:B=100:C=120:RESTORE *３面:GOSUB *路肩描く
  55. 550 PSZ=20:RESTORE *３面:GOSUB *道路描く
  56. 560 GET@A(0,0)-(319,255),MAPDATA
  57. 570 GOSUB *道路で塗りつぶし
  58. 580 PUT@A(0,0)-(319,255),MAPDATA,MATTE,,,0
  59. 590 X1=175:Y1=211:X2=175:Y2=236:GOSUB *スタートライン描く
  60. 600 SAVE@ "cdr_map3.tif",(0,0)-(319,255),,1
  61. 610 '--- ４面 ---
  62. 620 CLS:GOSUB *森で塗りつぶし
  63. 630 PSZ=32:A=160:B=160:C=200:RESTORE *４面:GOSUB *路肩描く
  64. 640 PSZ=26:A=100:B=100:C=120:RESTORE *４面:GOSUB *路肩描く
  65. 650 PSZ=20:RESTORE *４面:GOSUB *道路描く
  66. 660 GET@A(0,0)-(319,255),MAPDATA
  67. 670 GOSUB *道路で塗りつぶし
  68. 680 PUT@A(0,0)-(319,255),MAPDATA,MATTE,,,0
  69. 690 X1=175:Y1=211:X2=175:Y2=236:GOSUB *スタートライン描く
  70. 700 SAVE@ "cdr_map4.tif",(0,0)-(319,255),,1
  71. 710 '--- プログラム終了 ---
  72. 720 END
  73. 730 サブルーチン:'--------------------------------------------------
  74. 740 *森で塗りつぶし
  75. 750   FOR I=0 TO 4
  76. 760     FOR J=0 TO 3
  77. 770       PUT@A(I*64,J*64)-(I*64+63,J*64+63),FOREST%
  78. 780     NEXT J
  79. 790   NEXT I
  80. 800 RETURN
  81. 810 *道路で塗りつぶし
  82. 820   FOR I=0 TO 4
  83. 830     FOR J=0 TO 3
  84. 840       PUT@A(I*64,J*64)-(I*64+63,J*64+63),ROAD%
  85. 850     NEXT J
  86. 860   NEXT I
  87. 870 RETURN
  88. 880 *道路描く
  89. 890   READ DNUM
  90. 900   FOR I=0 TO DNUM-1
  91. 910     READ X(I),Y(I)
  92. 920   NEXT
  93. 930   POINT(X(0),Y(0)):DEF PEN 0,PSZ
  94. 940   FOR I=1 TO DNUM-1
  95. 950     LINE-(X(I),Y(I)),PSET,0
  96. 960   NEXT
  97. 970 RETURN
  98. 980 *路肩描く
  99. 990   READ DNUM
  100. 1000   FOR I=0 TO DNUM-1
  101. 1010     READ X(I),Y(I)
  102. 1020   NEXT
  103. 1030   POINT(X(0),Y(0)):DEF PEN 0,PSZ
  104. 1040   FOR I=1 TO DNUM-1
  105. 1050     LINE-(X(I),Y(I)),PSET,[A,B,C]
  106. 1060   NEXT
  107. 1070 RETURN
  108. 1080 *スタートライン描く
  109. 1090   DEF PEN 0,1:LINE(X1,Y1)-(X2,Y2),PSET,7
  110. 1100 RETURN
  111. 1110 '★☆★ コースデータ ☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
  112. 1120 '      x,  y,  x,  y,  x,  y,  x,  y
  113. 1130 *１面:'----------------------------------------------------------
  114. 1140 DATA 29      :'この行の下に何個のデ－タがあるか
  115. 1150 DATA 175,223, 51,223, 38,220, 31,210:'4
  116. 1160 DATA  31,200, 38,190, 51,187, 85,187:'8
  117. 1170 DATA 105, 40,108, 38,132, 38,135, 40:'12
  118. 1180 DATA 135,160,160,160,162,140,167,120:'16
  119. 1190 DATA 180, 80,200, 30,220, 25,250, 30:'20
  120. 1200 DATA 282, 35,285, 50,287,140,287,160:'24
  121. 1210 DATA 290,180,292,200,289,214,283,223:'28
  122. 1220 DATA 175,223
  123. 1230 *２面:'----------------------------------------------------------
  124. 1240 DATA 29      :'この行の下に何個のデ－タがあるか
  125. 1250 DATA 175,223, 40,223, 30,160, 30,120:'4
  126. 1260 DATA  65, 50,100, 30,150, 30,160, 35:'8
  127. 1270 DATA 180, 90,210, 90,230, 35,240, 30:'12
  128. 1280 DATA 280, 30,286, 60,290,100,286,140:'16
  129. 1290 DATA 270,150,140,155,135,130,122,125:'20
  130. 1300 DATA 110,130,105,150,105,160,120,185:'24
  131. 1310 DATA 280,190,290,200,290,210,280,223:'28
  132. 1320 DATA 175,223
  133. 1330 *３面:'----------------------------------------------------------
  134. 1340 DATA 31      :'この行の下に何個のデ－タがあるか
  135. 1350 DATA 175,223, 54,223, 41,214, 37,196:'4
  136. 1360 DATA  39,169, 50,157, 62,156, 72,167:'8
  137. 1370 DATA  79,176, 95,174,137,108,137, 98:'12
  138. 1380 DATA 105, 49,111, 37,121, 33,136, 35:'16
  139. 1390 DATA 269, 41,283, 50,282, 61,271, 67:'20
  140. 1400 DATA 212, 69,200, 74,168,130,167,134:'24
  141. 1410 DATA 178,147,259,174,272,180,278,199:'28
  142. 1420 DATA 273,214,263,223,175,223
  143. 1430 *４面:'----------------------------------------------------------
  144. 1440 DATA 28
  145. 1450 DATA 175,223, 60,223, 50,200, 80,167:'4
  146. 1460 DATA  30, 80, 30, 70, 35, 50, 80, 35:'8
  147. 1470 DATA 120, 40,100,130,150,100,150,180:'12
  148. 1480 DATA 160,185,180,180,210,130,210,120:'16
  149. 1490 DATA 170, 40,173, 35,190, 25,230, 40:'20
  150. 1500 DATA 250, 60,275,100,280,130,282,145:'24
  151. 1510 DATA 280,160,260,210,240,223        :'27
  152. 1520 DATA 175,223
  153.